home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / starfi_1 / form2.frm < prev    next >
Text File  |  1997-09-08  |  2KB  |  77 lines
  1. VERSION 4.00
  2. Begin VB.Form Form2 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Scrolling Star Field VB ver 4"
  5.    ClientHeight    =   5280
  6.    ClientLeft      =   2445
  7.    ClientTop       =   1635
  8.    ClientWidth     =   4680
  9.    Height          =   5685
  10.    Left            =   2385
  11.    LinkTopic       =   "Form2"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   5280
  15.    ScaleWidth      =   4680
  16.    ShowInTaskbar   =   0   'False
  17.    Top             =   1290
  18.    Width           =   4800
  19.    Begin VB.PictureBox Picture1 
  20.       AutoSize        =   -1  'True
  21.       Height          =   4560
  22.       Left            =   60
  23.       Picture         =   "Form2.frx":0000
  24.       ScaleHeight     =   4500
  25.       ScaleWidth      =   4500
  26.       TabIndex        =   0
  27.       Top             =   60
  28.       Width           =   4560
  29.    End
  30.    Begin VB.Label Label1 
  31.       Alignment       =   2  'Center
  32.       Caption         =   "CLICK THE LOGO TO CONTINUE"
  33.       Height          =   255
  34.       Index           =   2
  35.       Left            =   60
  36.       TabIndex        =   3
  37.       Top             =   5040
  38.       Width           =   4515
  39.    End
  40.    Begin VB.Label Label1 
  41.       Alignment       =   2  'Center
  42.       Caption         =   "Use the arrow keys to scroll the display"
  43.       Height          =   255
  44.       Index           =   1
  45.       Left            =   120
  46.       TabIndex        =   2
  47.       Top             =   4800
  48.       Width           =   4455
  49.    End
  50.    Begin VB.Label Label1 
  51.       Alignment       =   2  'Center
  52.       Caption         =   "A Star field example"
  53.       Height          =   255
  54.       Index           =   0
  55.       Left            =   120
  56.       TabIndex        =   1
  57.       Top             =   4620
  58.       Width           =   4515
  59.    End
  60. End
  61. Attribute VB_Name = "Form2"
  62. Attribute VB_Creatable = False
  63. Attribute VB_Exposed = False
  64. Option Explicit
  65.  
  66. Private Sub Form_Load()
  67. Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
  68. End Sub
  69.  
  70.  
  71. Private Sub Picture1_Click()
  72. Form1.Show
  73. Unload Me
  74. End Sub
  75.  
  76.  
  77.